TPUG - Toronto PET Users Group/TPUG Users Group CD/TPUG Users Group CD.iso/C64/E-Education/(c)ed20.d64/tt23

Commodore BASIC | 2007-02-11 | 6KB | 166 lines

10 CLR:POKE53280,0:POKE53281,0:POKE646,3:POKE53272,23
15 PRINT"[147]                                        [146]";
20 PRINT"     [210][193][196]'[211] [212][207][213][195][200][160][212][217][208][201][206][199] - MADE EASY     [146]";
25 PRINT"                                        [146]":GOSUB710
30 PRINT"               [205]ODULE 23 [146]
35 [141]720
38 [151]53280,0:[151]53281,0:[151]646,7
40 [153]"LOAD                 (null)(null)23 WAIT
42 PRINT"[150]              [215][193][210][206][201][206][199]!![159]"
44 PRINT"   [201]F YOU MAKE 4 UNCORRECTED ERRORS        IN THIS MODULE, YOU ";
46 PRINT"MUST START          OVER AGAIN."
48 PRINT"[154]     [208]RESS  [211][208][193][195][197][160][194][193][210] [146] TO CONTINUE[159]"
50 GETR$:IFR$<>CHR$(32)THEN50
52 GOSUB600
56 POKE53280,3:POKE53281,15:POKE646,0:POKE53272,21
58 R=0:TI$="000000":LINE=0:P=0:Q=0:G=1:K=0
60 LINE=LINE+1:PRINT"[147] TT23  EXERCISE:"TAB(2)LINE"OF 17"TAB(27)"ERRORS:"Q
62 FOR K=1 TO 17
64 READ E$(K)
66 PRINT" TYPE CORRECTLY, THEN PRESS RETURN[146]"
68 PRINT" ";E$(K)
70 PRINT"[144]"
72 READ F$(K)
74 POKE198,1:POKE631,34:INPUT C$
76 IF C$=F$(K) THEN 90
78 PRINT" **** NOT CORRECT - REPEAT - ERRORS:"G"[144]":GOSUB2050:GOSUB710
80 Q=Q+1:G=G+1
82 IF Q=4 THEN GOSUB 400:RESTORE:G=0:GOTO 56
84 GOTO 74
90 PRINT"[156]              CORRECT![144]":GOSUB2000:GOSUB710:P=P+1
92 IFP=17THEN RESTORE:GOTO 300
94 GOTO60
99 REM DATA FOR EXERCISES
100 DATA" BOX BOX BOX BOX BOX BOX BOX BOX","BOX BOX BOX BOX BOX BOX BOX BOX"
105 DATA" FOX FOX FOX FOX FOX FOX FOX FOX","FOX FOX FOX FOX FOX FOX FOX FOX"
110 DATA" SIX SIX SIX SIX SIX SIX SIX SIX","SIX SIX SIX SIX SIX SIX SIX SIX"
115 DATA" QUIZ QUIZ QUIZ QUIZ QUIZ QUIZ","QUIZ QUIZ QUIZ QUIZ QUIZ QUIZ"
120 DATA" QUEST QUEST QUEST QUEST QUESTS.","QUEST QUEST QUEST QUEST QUESTS."
125 DATA" FIX MIX FIX MIX FIX MIX FIX MIX","FIX MIX FIX MIX FIX MIX FIX MIX"
130 DATA" QUEEN QUEEN QUEEN QUEEN QUEENS.","QUEEN QUEEN QUEEN QUEEN QUEENS."
135 DATA" ZOO ZOO ZOO ZOO ZOO ZOO ZOO ZOO","ZOO ZOO ZOO ZOO ZOO ZOO ZOO ZOO"
140 DATA" ZEBRA ZEBRA ZEBRA ZEBRA ZEBRAS.","ZEBRA ZEBRA ZEBRA ZEBRA ZEBRAS."
145 DATA" NEXT NEXT NEXT NEXT NEXT NEXT.","NEXT NEXT NEXT NEXT NEXT NEXT."
150 DATA" SQUARE SQUARES SQUARE SQUARES.","SQUARE SQUARES SQUARE SQUARES."
155 DATA" SIZE SIZE SIZE SIZE SIZE SIZES.","SIZE SIZE SIZE SIZE SIZE SIZES."
160 DATA" LAZY LAZY LAZY LAZY LAZY LAZY.","LAZY LAZY LAZY LAZY LAZY LAZY."
165 DATA" EXPLAIN NEXT HOW TO FIX THE BOX.","EXPLAIN NEXT HOW TO FIX THE BOX."
170 DATA" MIX SIXTY QUICK CRAZY DRINKS.","MIX SIXTY QUICK CRAZY DRINKS."
175 DATA" AT THE ZOO I SAW SIXTY ZEBRAS.","AT THE ZOO I SAW SIXTY ZEBRAS."
180 DATA" SIX QUICK ZEBRAS QUIT THE ZOO.","SIX QUICK ZEBRAS QUIT THE ZOO."
298 :
299 REM FINAL INSTRUCTIONS
300 RESTORE:POKE53272,23:PRINT"[147]                [199][207][207][196][160][215][207][210][203]!":GOSUB900
305 POKE53280,0:POKE53281,0:POKE646,7
310 PRINT"[147]  [212]HIS IS THE END OF MODULE 23.":GOSUB710
315 PRINT"  [212]HE NUMBER OF SECONDS TO COMPLETE       THIS MODULE WERE:"
317 PRINT"[145]"VAL(TI$)
320 GOSUB720
325 PRINT"  [210]ECORD THIS TIME AND THE DATE.
330 [141]740
335 [153]"DEF  (null)HIS MODULE SHOULD BE PERFORMED TWICE
340 PRINT"  BEFORE ADVANCING TO MODULE 24."
345 GOSUB730
350 PRINT"[158]  [215]HEN YOU HAVE RECORDED YOUR TIME
355 [153]"  AND THE DATE, PRESS (null)(null)ATNLENVAL PEEKATN(null).
360 GETR$:IFR$<>CHR$(32)THEN360
362 PRINT"[147]  [217]OU HAVE A CHOICE:
364 [153]"  (null)RESS  R WAIT TO REPEAT THIS MODULE
366 PRINT"  [208]RESS  C [146] TO GO TO MODULE 24
368 [153]"  (null)RESS  M WAIT TO RETURN TO DISK MENU
370 GETR$:IFR$<>"R"ANDR$<>"C"ANDR$<>"M"THEN370
372 IFR$="R"THENRESTORE:GOTO10
374 IFR$="M"THEN386
376 RESTORE
378 PRINT"[147]  [204]OADING MODULE 24
380 [147]"TT24",8
382 [138]
384 [128]
386 [140]
388 [153]"LOAD  (null)ETURNING TO THE DISK MENU
390 LOAD"MENU",8
392 RUN
394 END
399 :
400 REM START AGAIN
410 POKE53280,0:POKE53281,0:POKE646,10
420 PRINT"[147]   YOU ARE MAKING TOO MANY MISTAKES!":GOSUB2150:GOSUB720
430 PRINT"   YOU MUST GO BACK TO THE BEGINNING       OF THIS MODULE.
440 [141]740:[153]"LOAD"
450 [142]
598 :
599 [143] INSTRUCTIONS FOR MODULE
600 [153]"OPENLOAD  (null)ODULE 23 INTRODUCES THE  (null) WAIT, (null) WAIT AND     (null) WAIT KEYS.
605 PRINT"  [150]   [146][153]   [146]   [146][158]      [146][159]      [146]   [146][153]   [146][150]   [146]
610 [153]"   DEF (null) WAITPRINT (null) WAIT VAL WAITSYS (null)  (null) WAITOPEN (null)  (null) WAIT RIGHT$ WAITPRINT (null) WAITDEF (null) WAIT   "
615 [153]"    DEF ATN WAITPRINT (null) WAIT STR$ WAITSYS ASC WAIT CHR$WAITOPEN  LEFT$  MID$ WAIT (null) WAITPRINT (null) WAITDEF : WAIT"
620 [153]"     DEF (null) WAITPRINT (null) WAIT LEN WAITSYS (null)  PEEK WAITOPEN (null)  (null) WAIT   WAITPRINT .
625 PRINT"[155]                 [211][208][193][195][197]      [146]
630 [141]720
635 [153]"OPEN  (null)SE YOUR  ATN WAIT FINGER TO PRESS THE  (null) WAIT    AND  (null) WAIT KEYS.
636 PRINT"[159]  [213]SE YOUR  [211] [146] FINGER TO PRESS THE  [216] [146]    KEY.
637 [143] PRINT""
640 [153]"OPEN  PEEKE SURE YOUR (null)(null)RIGHT$(null)(null)(null)  ASC WAIT AND  MID$ WAIT         FINGERS CAN ";
645 [153]"FIND THEIR LEFT$(null)(null)VAL KEYS."
660 [141]720:[153]"CONT        (null)RESS  (null)(null)ATNLENVAL WAIT TO STARTOPEN"
665 [161]R$:[139]R$[179][177][199](32)[167]665
670 [142]
700 [143] TIME DELAYS
710 [129]T[178]1[164]1000:[130]:[142]
720 [129]T[178]1[164]2000:[130]:[142]
730 [129]T[178]1[164]3000:[130]:[142]
740 [129]T[178]1[164]4000:[130]:[142]
750 [129]T[178]1[164]5000:[130]:[142]
899 [143] END OF MODULE FLASH
900 [151]54276,17:[151]54277,30:[151]54278,200:[151]54296,15
905 [151]54272,220:[129] T[178]15 [164] 1 [169][171]1
910 [151]54273,T:[151]53281,T
915 [129] T1[178]1 [164] 5:[130] T1:[130] T:[129] T[178]1 [164] 30
920 [151]54273,T:[151]53280,T
925 [129]T1[178]1 [164] 5:[130] T1:[130] T
930 [151]54276,0:[151]54273,0:[151]54272,0
936 [142]
1998 :
1999 [143] <YES> SOUND
2000 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
2005 [151]54296,15:[151]54277,42:[151]54278,250
2010 [151]54276,23:[151]54273,23:[151]54272,181
2015 [129]T[178]1[164]100:[130]:[151]54276,32:[129]T[178]1[164]200:[130]
2020 [151]54296,0:[142]
2048 :
2049 [143] <NO> SOUND
2050 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
2055 [151]54296,15:[151]54277,18:[151]54278,242
2060 [151]54276,33:[151]54273,4:[151]54272,48
2063 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]800:[130]
2065 [129]E[178]S[164]S[170]28:[151]E,0:[130]
2070 [151]54276,0:[151]54273,0:[151]54272,0
2075 [151]54296,0:[142]
2098 :
2099 [143] <END OF EXERCISE> SOUND
2100 [151]54276,17:[151]54277,30:[151]54278,200:[151]54296,15
2105 [151]54272,220:[129]T[178]50[164]1[169][171]1
2110 [129]T1[178]1[164]5:[130]T1:[130]T:[129]T[178]1[164]30
2115 [151]54273,T:[151]53280,T
2120 [129]T1[178]1[164]5:[130]T1:[130]T
2125 [151]54276,0:[151]54273,0:[151]54272,0
2130 T[151]54296,0:[142]
2148 :
2149 [143] <WHOOPING> SOUND
2150 [129]L[178]54272[164]54295:[151]L,0:[130]:[151]54296,8
2155 [151]54277,8:[151]54278,255:[151]54276,23
2160 [129]Z[178]1[164]3:F1[178]2
2165 [129]Y[178]1[164]3:F2[178]8
2170 [151]54273,F1
2175 [129]X[178]1[164]5:[151]54287,F2
2180 F2[178]F2[172]1.4:[130]X:F1[178]F1[172]1.5:[130]Y
2185 [129]W[178]1[164]10:[151]54287,F2
2190 F2[178]F2[172]1.05:[130] W:[130] Z:[151]54278,15
2195 [151]54296,0:[142]
4999 :
5000 [143] * IN MEMORY OF RAD JANJIC *                 ** RIP 87:11:26 **
5005 :
5010 [143] DESIGNED BY W H CUMBERLAND 87:12:21/88:04:22/91:05:13
5020 [143] HELP FROM JIM BUTTERFIELD
5025 [143] ADVISE WHC [416/278 7687] OF   ANY IMPROVEMENTS OR SUGGESTIONS